home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 July / EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso / recent / graburl.lha / GrabURL / GrabURL_Install next >
Text File  |  1998-01-07  |  7KB  |  190 lines
  1. ; $VER: Install_UrlKit 1.0 (14.1.97)
  2. ;
  3.  
  4. ; Français -------
  5. (procedure français (
  6.     (set MSG_WRONGOS "\n\nGrabURL nécessite AmigaDOS V39 (3.0) ou plus!")
  7.     (set MSG_DESTBIN "OÙ désirez-vous installer les fichiers exécutables?")
  8.     (set MSG_DESTDOC "OÙ désirez-vous installer les documents AmigaGuide?")
  9.     (set MSG_DONE "\n\nL'installation de GrabURL est maintenant terminée.\n\nLes exécutables sont maintenant dans le répertoire %s.\nLes documents AmigaGuides sont maintenant dans %s.\n\nMerci d'essayer GrabURL!")
  10.     (set ASK_BIN "Sélectionnez les exécutables à copier.\n\n** Notez qu'ils doivent tous être copiés pour utiliser GrabURL.")
  11.     (set ASK_DOC "Sélectionnez les documents AmigaGuide à copier.")
  12.     (set FILE_GRABHTTP ("GrabHTTP (%ld octets)" (getsize "bin/GrabHTTP_000")))
  13.     (set FILE_URLMANAGER ("UrlManager (%ld octets)" (getsize "bin/UrlManager_000")))
  14.     (set FILE_SCANHTML ("ScanHTML (%ld octets)" (getsize "bin/ScanHTML_000")))
  15.     (set FILE_GRABURL ("GrabURL (%ld octets)" (getsize "rexx/GrabURL.rexx")))
  16.     (set DOC_GRABHTTP ("GrabHTTP.guide (%ld octets)" (getsize "doc/GrabHTTP.guide")))
  17.     (set DOC_URLMANAGER ("UrlManager.guide (%ld octets)" (getsize "doc/UrlManager.guide")))
  18.     (set DOC_SCANHTML ("ScanHTML.guide (%ld octets)" (getsize "doc/ScanHTML.guide")))
  19.     (set DOC_GRABURL ("GrabURL.guide (%ld octets)" (getsize "doc/GrabURL.guide")))
  20. ))
  21. ; English -------
  22. (procedure english (
  23.     (set MSG_WRONGOS "\n\nGrabURL needs at least AmigaDOS V39 (3.0)!")
  24.     (set MSG_DESTBIN "Where do you want to install the executable files?")
  25.     (set MSG_DESTDOC "Where do you want to install the AmigaGuide documents?")
  26.     (set MSG_DONE "\n\nGrabURL's installation is done.\n\nThe executable files are now in %s.\nThe AmigaGuide documents are now in %s.\n\nThanks for trying GrabURL!")
  27.     (set ASK_BIN "Select the files to copy.\n\nYou NEED all of them to get a working GrabURL!")
  28.     (set ASK_DOC "Select the help files to copy.")
  29.     (set FILE_GRABHTTP ("GrabHTTP (%ld bytes)" (getsize "bin/GrabHTTP_000")))
  30.     (set FILE_URLMANAGER ("UrlManager (%ld bytes)" (getsize "bin/UrlManager_000")))
  31.     (set FILE_SCANHTML ("ScanHTML (%ld bytes)" (getsize "bin/ScanHTML_000")))
  32.     (set FILE_GRABURL ("GrabURL (%ld bytes)" (getsize "rexx/GrabURL.rexx")))
  33.     (set DOC_GRABHTTP ("GrabHTTP.guide (%ld bytes)" (getsize "doc/GrabHTTP.guide")))
  34.     (set DOC_URLMANAGER ("UrlManager.guide (%ld bytes)" (getsize "doc/UrlManager.guide")))
  35.     (set DOC_SCANHTML ("ScanHTML.guide (%ld bytes)" (getsize "doc/ScanHTML.guide")))
  36.     (set DOC_GRABURL ("GrabURL.guide (%ld bytes)" (getsize "doc/GrabURL.guide")))
  37. ))
  38.  
  39. (if (= @language "english") (english))
  40. (if (= @language "français") (français))
  41.  
  42. ; Check OS version
  43. (set osversion (/ (getversion) 65536))
  44. (if (< osversion 39)
  45.     (abort MSG_WRONGOS)
  46. )
  47.  
  48. ; Default destinations
  49. (if (exists "AmiTCP:bin" (noreq))
  50.     (set def_bindest "AmiTCP:bin")
  51.     (set def_bindest @default-dest)
  52. )
  53. (if (exists "AmiTCP:help" (noreq))
  54.     (set def_docdest "AmiTCP:help")
  55.     (set def_docdest @default-dest)
  56. )
  57.  
  58. (complete 0)
  59.  
  60. ; Install binaries
  61. (set binchoice (askoptions
  62.             (prompt ASK_BIN)
  63.             (help @askchoice-help)
  64.             (choices FILE_GRABHTTP FILE_URLMANAGER FILE_SCANHTML FILE_GRABURL)
  65.             (default -1))
  66. )
  67.  
  68. (if (<> binchoice 0)
  69. (   ; Something to copy
  70.     (set bindir
  71.         (askdir (prompt MSG_DESTBIN)
  72.                 (help @askdir-help)
  73.                 (default def_bindest)
  74.                 (newpath)))
  75.     ; GrabHTTP
  76.     (if (IN binchoice 0)
  77.         (
  78.             (copyfiles
  79.                         (help @copyfiles-help)
  80.                         (source "bin/GrabHTTP_000")
  81.                         (dest bindir)
  82.                         (newname "GrabHTTP"))
  83.             (protect (tackon bindir "GrabHTTP") 32)
  84.         ) ; End GrabHTTP
  85.     ) ; End if
  86.     ; UrlManager
  87.     (if (IN binchoice 1)
  88.         (
  89.             (copyfiles
  90.                         (help @copyfiles-help)
  91.                         (source "bin/UrlManager_000")
  92.                         (dest bindir)
  93.                         (newname "UrlManager"))
  94.             (protect (tackon bindir "UrlManager") 32)
  95.         ) ; End UrlManager
  96.     ) ; End if
  97.     ; ScanHTML
  98.     (if (IN binchoice 2)
  99.         (
  100.             (copyfiles
  101.                         (help @copyfiles-help)
  102.                         (source "bin/ScanHTML_000")
  103.                         (dest bindir)
  104.                         (newname "ScanHTML"))
  105.             (protect (tackon bindir "ScanHTML") 32)
  106.         ) ; End ScanHTML
  107.     ) ; End if
  108.     ; GrabURL.rexx
  109.     (if (IN binchoice 3)
  110.         (
  111.             (copyfiles
  112.                         (help @copyfiles-help)
  113.                         (source "rexx/GrabURL.rexx")
  114.                         (dest bindir)
  115.                         (newname "GrabURL"))
  116.             (protect (tackon bindir "GrabURL") 66)
  117.         ) ; End GrabURL.rexx
  118.     ) ; End if
  119. ))  ; End if
  120.  
  121. (complete 50)
  122.  
  123. ; Install documents
  124. (set docchoice (askoptions
  125.             (prompt ASK_DOC)
  126.             (help @askchoice-help)
  127.             (choices DOC_GRABHTTP DOC_URLMANAGER DOC_SCANHTML DOC_GRABURL)
  128.             (default -1))
  129. )
  130.  
  131. (if (<> docchoice 0)
  132. (   ; Something to copy
  133.     (set docdir
  134.         (askdir (prompt MSG_DESTDOC)
  135.                 (help @askdir-help)
  136.                 (default def_docdest)
  137.                 (newpath)))
  138.     ; GrabHTTP
  139.     (if (IN docchoice 0)
  140.         (
  141.             (copyfiles
  142.                         (help @copyfiles-help)
  143.                         (source "doc/GrabHTTP.guide")
  144.                         (dest docdir)
  145.                         (infos))
  146.             (protect (tackon docdir "GrabHTTP.guide") 2)
  147.         ) ; End GrabHTTP
  148.     ) ; End if
  149.     ; UrlManager
  150.     (if (IN docchoice 1)
  151.         (
  152.             (copyfiles
  153.                         (help @copyfiles-help)
  154.                         (source "doc/UrlManager.guide")
  155.                         (dest docdir)
  156.                         (infos))
  157.             (protect (tackon docdir "UrlManager.guide") 2)
  158.         ) ; End UrlManager
  159.     ) ; End if
  160.     ; ScanHTML
  161.     (if (IN docchoice 2)
  162.         (
  163.             (copyfiles
  164.                         (help @copyfiles-help)
  165.                         (source "doc/ScanHTML.guide")
  166.                         (dest docdir)
  167.                         (infos))
  168.             (protect (tackon docdir "ScanHTML.guide") 2)
  169.         ) ; End ScanHTML
  170.     ) ; End if
  171.     ; GrabURL.rexx
  172.     (if (IN docchoice 3)
  173.         (
  174.             (copyfiles
  175.                         (help @copyfiles-help)
  176.                         (source "doc/GrabURL.guide")
  177.                         (dest docdir)
  178.                         (infos))
  179.             (protect (tackon docdir "GrabURL.guide") 2)
  180.         ) ; End GrabURL.rexx
  181.     ) ; End if
  182. ))  ; End if
  183.  
  184. (complete 100)
  185.  
  186. ; End!
  187. (message (MSG_DONE bindir docdir))
  188. (run "run <>nil: more Readme_Now.txt")
  189. (exit (quiet))
  190.